Gigarom 1/Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso/FILES/HYP/C-D/CardMover 1.1.cpt/CardMover 1.1/card_3023.txt

Text File | 1989-02-26 | 5KB | 211 lines

-- card: 3023 from stack: in.1
-- bmap block id: 5435
-- flags: 4000
-- background id: 2632
-- name: Title card
----- HyperTalk script -----
on closeCard
  hide card field details
  pass closeCard
end closeCard


-- part 1 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=227 top=36 right=82 bottom=262
-- title width / last selected line: 0
-- icon id / first selected line: 1020 / 1020
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Info
----- HyperTalk script -----
on mouseUp
  if visible of card field details is true then
    hide card field details
    play "boing" tempo 1000 "47 51 53 49 45"
  else
    show card field details
    play "boing" tempo 1000 "51 49 47 45 49 53"
    talk "Here's some info about, this stack.",165,110
  end if
end mouseUp


-- part 2 (field)
-- low flags: 81
-- high flags: 2002
-- rect: left=53 top=147 right=331 bottom=451
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 8192
-- line height: 16
-- part name: Details
----- HyperTalk script -----
on mouseUp
  hide the target
  play "boing" tempo 1000 "47 51 53 49 45"
end mouseUp


-- part 3 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=292 top=27 right=74 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: CardMover Demo
----- HyperTalk script -----
on mouseUp
  show card window at 0,300
  talk "Now you can see the tpath, name.",165,110
  wait 3 secs
  talk "And you can move the wyndohh around!",165,110
  hide menuBar
  show card window at 300,300
  play harpsichord 100
  show card window at 275,275
  play harpsichord 100
  show card window at 250,250
  play harpsichord 100
  show card window at 225,225
  play harpsichord 100
  show card window at 200,200
  play harpsichord 100
  show card window at 175,175
  play harpsichord 100
  show card window at 150,150
  play harpsichord 100
  show card window at 125,125
  play harpsichord 100
  show card window at 100,100
  play harpsichord 100
  show card window at 75,75
  play harpsichord 100
  show card window at 50,50
  play harpsichord 100
  show card window at 25,25
  play harpsichord 100
  show card window at 0,0
  play harpsichord 100
  show card window at -25,-25
  play harpsichord 100
  show card window at -50,-50
  wait 1 secs
  play "boing" tempo 1000 "90 90"
  show card window at 0,0
  show menuBar
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=5 top=92 right=125 bottom=344
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  get loc of card window
  if it is "0,0" then
    play boing
    put "   The window is already reset!"
    talk "This button only resets the wyndoah.",165,110
    wait 2 secs
    hide message
  else
    show card window at 0,0
    play "boing" tempo 1000 "90 90"
    show menuBar
  end if
end mouseUp


-- part 6 (button)
-- low flags: 00
-- high flags: A000
-- rect: left=438 top=85 right=130 bottom=488
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Continue
----- HyperTalk script -----
on mouseUp
  visual dissolve to inverse
  visual dissolve
  go next
end mouseUp


-- part 14 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=16 top=66 right=91 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
  if visible of card field details is true then
    hide card field details
    play "boing" tempo 1000 "47 51 53 49 45"
  else
    show card field details
    play "boing" tempo 1000 "51 49 47 45 49 53"
    talk "Here's some info about, this stack.",165,110
  end if
end mouseUp


-- part 22 (field)
-- low flags: 01
-- high flags: 0001
-- rect: left=66 top=133 right=147 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name:


-- part contents for card part 2
----- text -----
On the regular screen that comes with the Mac Plus & SE, it’s not obvious that HyperCard is contained within a movable window. The CardMover stack was created to demonstrate this, and to make it easy to use HyperCard with MultiFinder on the smaller screens
(providing you have at least 2 megabytes of memory).
∞<>•<>∞<>•<>∞<>•<>∞
When you try the CardMover Demo, you’ll notice that the name of the HyperCard window is the pathname for this stack. This
“pathname” is used to tell your Mac where to find the stack.  After you try the CardMover Demo, click “Continue” and you’ll find several buttons that’re more useful than the demo.

-- part contents for card part 22
----- text -----
This stack will make use of MacinTalk, if you have a copy in your System Folder.